
   1 CLEAR ;FC=0;CY=0;PRINT "      LEVEL 1 OR 2?";G=KP-48;K=15-G×5;G=G×2;GOTO 25
   2 BOX A-3,E-1,1,1,1;BOX A,E,5,2,1;BOX A+2,E+1,1,1,1;IF V=3&(19)=0;GOTO 4
   3 BOX A,E,7,3,2;A=A-5;RETURN 
   4 BC=FC;U=@(P)+RND (8);&(23)=M;&(21)=M;LINE @(P),@(P+5)+9,4=XY;J=XY;LINE U,36,1;XY=J;BC=135;LINE U,36,2
   5 IF PX(U,35)C=33;CY=35;CX=A;PRINT "*";BOX A-1,35,3,3,2;FC=BC;FC=0;BOX A,35,6,6,2;GOTO 8
   6 BC=246;&(21)=229;&(23)=0;&(19)=-86;GOTO 3
   7 IF PX(A,C-3)H=10;@(P)=A;GOTO 9
   8 BOX A,C+4,11,7,2;BOX A,C-3,1,1,3;BOX A,C,3,5,1;BOX A,C,11,2,1;BOX A,C+3,5,1,1;C=C-3;GOTO 7
   9 FOR W=-2TO 2;BC=80;&(21)=M;&(23)=M;LINE @(P),C-4,4;LINE W×RND (3)+@(P),C+RND (5)+3,3;MU=9000;BC=135;&(23)=0;&(21)=0
  10 NEXT W;&(21)=M;FOR N=MTO 20STEP -3;BC=N;MU=O;&(23)=N;NEXT N;@(P)=99;GOTO 91
  11 IF TR(1)D=A;C=32;V=0;&(23)=50;&(19)=20;R=240;GOTO 15
  12 V=RND (K);IF V=3P=RND (5);IF @(P)=99V=0
  13 GOSUB 2;IF A>-79GOTO 11
  14 GOTO 91
  15 C=C-4;D=D+Q;R=R+1;&(21)=R;IF PX(D,C-2)&(19)=0;GOTO 19
  16 BOX D,C,1,3,1;BOX D,C,1,3,2;IF E<40E=E+2;GOSUB 2
  17 IF D>-78IF D<78GOTO 15
  18 T=T+10;GOTO 91
  19 NT=6;BOX D,C+1,4,4,2;BC=FC;&(21)=M;BC=135;&(21)=M;&(23)=M;MU=9000;NT=2;BC=80
  20 FOR P=1TO 5;IF @(P)<D+4IF @(P)>D-4B=B+1;GOTO 9
  21 NEXT P;GOTO 18
  25 M=255;IF G>4GOTO 1
  30 B=0;T=0;NT=1;H=0;CLEAR ;&(9)=-1;BC=246;Y=RND (40)-31;X=-80;U=RND (9);LINE X,Y,4;Z=Y;&(10)=0
  35 X=X+RND (11);Y=Y+RND (10)-U;IF Y<-30Y=-30;U=4
  40 IF Y>-11U=6
  45 U=U+(U>5)×2-RND (3)+1;IF X>78X=79
  50 LINE X,Y,1;MU=Y;IF X#79GOTO 35
  55 FOR A=0TO 175;&(10)=A;&(21)=A;&(19)=A;NEXT A;&(21)=0;Y=Z;FOR X=-80TO 79;LINE X,-30,4;IF PX(X,Y)GOTO 75
  60 FOR A=1TO 60;IF PX(X,Y+A)Y=Y+A;GOTO 75
  65 IF (PX(X,Y-A)=0)+(Y-A<-30)NEXT A
  70 Y=Y-A
  75 LINE X,Y,1;NEXT X
  80 &(19)=0;FOR N=1TO 5
  82 X=RND (140)-70;FOR V=1TO 5;IF @(V)<X+8IF @(V)>X-8GOTO 82
  84 NEXT V
  86 FOR P=-30TO 29;IF PX(X,P)NEXT P
  88 IF P<-24GOTO 82
  90 @(N)=X;MU=X;BOX X,P,5,8,2;BOX X,P-3,3,5,1;BOX X,P-4,1,1,2;@(N+5)=P+1;NEXT N
  91 &(21)=0;&(23)=0;&(19)=0;A=80;E=36;BC=246;IF (H=10)+(B=5)B=B×25-T;PRINT "   SCORE ",#1,B;FOR A=0TO 900;NEXT A;GOTO 25
  92 H=H+1;S=RND (G)×5;F=RND (2);Q=S÷5;NT=0
  97 BOX 0,-38,160,8,2;CY=-38;IF F=1Q=-Q;PRINT " WIND DIRECTION E ◄",#3,S," MPH
  98 IF F=2PRINT " WIND DIRECTION W ►",#3,S," MPH
 100 &(19)=-86;&(21)=229;NT=1;GOTO 11
:RETURN ;RUN 
>